1 Public Class FrmPRODUCT_PACING_PRINT
2
3     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
4         Me.Close()
5     End Sub
6
7     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
8         Dim Report As New FrmREPORTS
9         If rbfast.Checked Then
10             Rpt_SqlStr =
"SELECT DISTINCT TBL_Category_Item_File.Item_ID, TBL_Sales_Sold_Detail.Item_Name, TBL_Sales_Sold_Detail.Item_QTY, SUM(Item_QTY) " & _
11                          
"FROM TBL_Sales_Sold_Detail " & _
12                          
"INNER JOIN TBL_Category_Item_File ON TBL_Sales_Sold_Detail.Item_ID = TBL_Category_Item_File.Item_ID " & _
13                          
"INNER JOIN TBL_Sales_Sold ON TBL_Sales_Sold_Detail.Sales_ID = TBL_Sales_Sold.Sales_ID " & _
14                          
"WHERE TBL_Sales_Sold.Sales_Date >='" & dtfrom.Value & "' AND TBL_Sales_Sold.Sales_Date <='" & dtto.Value & "'" & _
15                          
"GROUP BY TBL_Category_Item_File.Item_ID, TBL_Sales_Sold_Detail.Item_Name, TBL_Sales_Sold_Detail.Item_QTY "
16             globalFRM =
"frmproduct_pacing"
17         ElseIf rbslow.Checked Then
18
19         End If
20         Report.Show()
21     End Sub
22
23     Private Sub FrmPRODUCT_PACING_PRINT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
24
25     End Sub
26
27     Private Sub dtfrom_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtfrom.ValueChanged
28
29     End Sub
30
31     Private Sub dtto_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtto.ValueChanged
32
33     End Sub
34 End Class


Gõ tìm kiếm nhanh...